home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / opngltxt / gltext.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-02-06  |  4.5 KB  |  157 lines
  1. VERSION 5.00
  2. Object = "{7115A980-41DC-11D0-B2C5-444553540000}#1.1#0"; "GLTEXT.OCX"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "OpenGL Text ActiveX Demo"
  6.    ClientHeight    =   4875
  7.    ClientLeft      =   1050
  8.    ClientTop       =   1470
  9.    ClientWidth     =   4905
  10.    Icon            =   "GLText.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    PaletteMode     =   1  'UseZOrder
  15.    Picture         =   "GLText.frx":000C
  16.    ScaleHeight     =   325
  17.    ScaleMode       =   3  'Pixel
  18.    ScaleWidth      =   327
  19.    Begin VB.CheckBox T 
  20.       Caption         =   "Transparent"
  21.       Height          =   195
  22.       Left            =   120
  23.       TabIndex        =   7
  24.       Top             =   4200
  25.       Width           =   2055
  26.    End
  27.    Begin VB.CheckBox PosZ 
  28.       Caption         =   "Position Z"
  29.       Height          =   195
  30.       Left            =   3360
  31.       TabIndex        =   5
  32.       Top             =   4560
  33.       Width           =   1050
  34.    End
  35.    Begin VB.CheckBox Y 
  36.       Caption         =   "Rotate Y"
  37.       Height          =   195
  38.       Left            =   1200
  39.       TabIndex        =   4
  40.       Top             =   4560
  41.       Width           =   975
  42.    End
  43.    Begin VB.CheckBox X 
  44.       Caption         =   "Rotate X"
  45.       Height          =   195
  46.       Left            =   120
  47.       TabIndex        =   3
  48.       Top             =   4560
  49.       Width           =   975
  50.    End
  51.    Begin VB.CommandButton Command2 
  52.       Caption         =   "Rest"
  53.       Height          =   315
  54.       Left            =   2280
  55.       TabIndex        =   2
  56.       Top             =   4200
  57.       Width           =   1095
  58.    End
  59.    Begin VB.CheckBox Z 
  60.       Caption         =   "Rotate Z"
  61.       Height          =   195
  62.       Left            =   2280
  63.       TabIndex        =   1
  64.       Top             =   4560
  65.       Width           =   975
  66.    End
  67.    Begin VB.Timer Timer 
  68.       Interval        =   100
  69.       Left            =   6240
  70.       Top             =   120
  71.    End
  72.    Begin VB.CommandButton Command1 
  73.       Caption         =   "Exit"
  74.       Height          =   315
  75.       Left            =   3480
  76.       TabIndex        =   0
  77.       Top             =   4200
  78.       Width           =   1215
  79.    End
  80.    Begin GLText.GLText GLText 
  81.       Height          =   3975
  82.       Left            =   120
  83.       TabIndex        =   6
  84.       Top             =   120
  85.       Width           =   4695
  86.       Extrusion       =   0.3
  87.       LightX          =   0
  88.       LightY          =   15
  89.       LightZ          =   25
  90.       PositionX       =   0
  91.       PositionY       =   0
  92.       PositionZ       =   -5
  93.       ScaleX          =   1
  94.       ScaleY          =   1
  95.       ScaleZ          =   1
  96.       DegreeX         =   0
  97.       DegreeY         =   0
  98.       DegreeZ         =   0
  99.       BackColor       =   12632256
  100.       ForeColor       =   16711680
  101.       Enabled         =   -1  'True
  102.       Text            =   "GLText"
  103.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  104.          Name            =   "Arial Black"
  105.          Size            =   8.25
  106.          Charset         =   0
  107.          Weight          =   700
  108.          Underline       =   0   'False
  109.          Italic          =   0   'False
  110.          Strikethrough   =   0   'False
  111.       EndProperty
  112.       Alignment       =   1
  113.       LineSpace       =   0.5
  114.       Transparent     =   0   'False
  115.       MousePointer    =   5
  116.       ExtendWidth     =   8281
  117.       ExtendHeight    =   7011
  118.    End
  119. Attribute VB_Name = "Form1"
  120. Attribute VB_GlobalNameSpace = False
  121. Attribute VB_Creatable = False
  122. Attribute VB_PredeclaredId = True
  123. Attribute VB_Exposed = False
  124. Dim Ins As Double
  125. Private Sub Command1_Click()
  126.   End
  127. End Sub
  128. Private Sub Command2_Click()
  129.   GLText.DegreeX = 0
  130.   GLText.DegreeY = 0
  131.   GLText.DegreeZ = 0
  132.   GLText.PositionZ = -4
  133. End Sub
  134. Private Sub Form_Load()
  135.   GLText.Text = "GLText" & Chr$(13) & "ActiveX"
  136.   Ins = -0.3
  137.   GLText.ZOrder 1
  138. End Sub
  139. Private Sub T_Click()
  140.     GLText.Transparent = T
  141. End Sub
  142. Private Sub Timer_Timer()
  143.   On Error Resume Next
  144.   If X Then GLText.DegreeX = GLText.DegreeX + 5.1
  145.   If Y Then GLText.DegreeY = GLText.DegreeY + 5.1
  146.   If Z Then GLText.DegreeZ = GLText.DegreeZ + 5.1
  147.   If PosZ Then
  148.     If GLText.PositionZ < -10 Then
  149.       Ins = 0.3
  150.     End If
  151.     If GLText.PositionZ > -1 Then
  152.       Ins = -0.3
  153.     End If
  154.     GLText.PositionZ = GLText.PositionZ + Ins
  155.   End If
  156. End Sub
  157.